home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / tunzerog.scp < prev    next >
Text File  |  1995-01-23  |  1KB  |  142 lines
  1.  
  2. { ZEG_LOAD
  3. I @Çû ^ê┤ THEN  ^ê┤ 
  4.  
  5. N ^ïÄ 
  6. {
  7. U 0
  8. O $Çâ 
  9. }
  10. ^ïÄ = 1
  11.  
  12.  
  13.  
  14. M FLOAT CONTINUE SNAP_TO
  15.  
  16.  
  17. @Ç¥ MARINESENTERTEMPLE
  18. I @Çæ RTHAND BLASTER != 1 AND @Çæ RTHAND TONFA != 1 THEN
  19. {
  20. @Çì ZEROG_CLUE
  21. }
  22. }
  23. { ZEROG_TURNING
  24. ó ZEG1 ZEG2 ZEG3 ZEG4
  25. @Ç¢ PLAYER 
  26. :TOP
  27. I @Çñ $éñ OR @Çñ $é¿ OR @Çñ $é¼ THEN
  28. T 10
  29. I @Çñ $骠OR @Çñ $鬠OR @Çñ $é« THEN
  30. T -10
  31. â 
  32. J #Çé
  33. }
  34. { ZEROG_ROOM
  35. ó ZEG1 ZEG2 ZEG3 ZEG4
  36. @Ç¢ PLAYER
  37. :TOP
  38. ^éì ++
  39. ^éÄ ++
  40. ^éÅ ++
  41. ^åó ++
  42. â 
  43. I ^åó = 5 THEN @Çå `éë 
  44. I ^åó >= 19 THEN
  45. {
  46. ^éì = 0
  47. ^éÄ = 0
  48. ^éÅ = 0
  49. ^åó = 0
  50. J #Çä
  51. }
  52. J #Çä
  53. }
  54. [ ZEROG_GRAVITY
  55. P ~ÇÇ 
  56. P ~Çü 
  57. ó ZEG1 ZEG2 ZEG3 ZEG4
  58. @Ç¢ PLAYER
  59.  
  60. :WAIT_FOR_ZEROG
  61. â 
  62. I @ÇÄ ZEG = $üé THEN J #Çå 
  63. :TOP
  64. 00:15 I ^ç╖ THEN
  65. R CURFIG GRAVPT 0 2
  66. E 
  67. R CURFIG GRAVPT 0 1
  68.  
  69. ~ÇÇ = @üé CURFIG 
  70. ~Çü = @üâ CURFIG 
  71. » CURFIG ~ÇÇ ~Çü 0
  72. ò 
  73. J #Çç
  74. ]
  75.  
  76. { TO_TUNRM
  77. A OFF
  78. Æ 
  79. ñ CURFIG
  80. Z CURFIG ON
  81. r CURFIG OFF
  82.  
  83. @Ç¥ ENTERTUBEROOM 1
  84. £ 180
  85. G FRMZEROG
  86.  
  87. A ON
  88. }
  89. { ZEROG_KEYBOARD _KEY _MODIFIERS _MOUSE
  90. I @Ç╛ = $üé THEN é 
  91. N ~ÇÇ 
  92. {
  93. U $é⌐ 
  94. I @Çæ RTHAND BLASTER OR @Çæ RTHAND TONFA THEN
  95. {
  96. I @Ç⌐ LEXMIR THEN
  97. {
  98. M ZERO_G_FIRE_FAIL
  99. @Çì ADDLOGWEAPONSFAIL
  100. }
  101. E 
  102. M ZERO_G_FIRE
  103. }
  104. X Çü 
  105. U $ü╡ 
  106. I @ÇÜ LTHAND THEN
  107. f INVENTORY
  108. E 
  109. @Çì PIMM_INVENTORY
  110. X Çü 
  111. U $éé 
  112. @Çì PIMM_JOURNAL
  113. X Çü 
  114. U $ü╛ 
  115. @Çì PIMM_DIAGNOSTICS
  116. X Çü 
  117. U $ü╖ 
  118. @Çì PIMM
  119. X Çü 
  120. U $ü╢ 
  121. à $âó 
  122. X Çü 
  123. U $ü▒ 
  124. à $⪠
  125. X Çü 
  126. U $ü╜ 
  127. @Çì CANNOT_SAVE
  128. X Çü 
  129. U $éù 
  130. I @Çæ LTHAND REFLECT THEN
  131. @Çì REFLECT_USE $üâ 
  132. X Çü 
  133. }
  134. é 
  135. }
  136. [ ZEROG_CLUE
  137. 30:00 i LEX ZEROG
  138. ]
  139.  
  140.  
  141. //$ 26 - version number
  142.